home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)ge.d64 / nightmare park.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  430 lines
  1. 0 POKE56576,PEEK(56576)AND253
  2. 1 POKE53272,5:POKE648,128
  3. 2 POKE55,255:POKE56,127
  4. 3 POKE53280,0:POKE53281,0:PRINT"";
  5. 4 DIMGD(5,2)
  6. 5 DIMTR(61)
  7. 10 PRINT"[147]DO ANY DARE TO ENTER
  8. 20 [153]"NIGHTMARE PARK
  9. 30 PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214]
  10. 40 [153]"NIGHTMARE PARK
  11. 45 IFZD=1ANDTI$<"000005"THEN20
  12. 46 IFZD=1THENRUN
  13. 50 GETA$:IFA$=""THEN52
  14. 52 IFA$="Y"ORA$="N"THEN57
  15. 55 GOTO20
  16. 57 IFA$="N"THENPRINT"[147]YOU ARE WISE":END
  17. 58 PRINT"[147]WHAT IS THE NAME OF THE FOOLISH ONE
  18. 59 [133]"  -CMDCMDCMD";N$
  19. 60 [139]N$[178]"-"[167]58
  20. 61 [129]I[178]1[164]61
  21. 65 [135]TR(I)
  22. 70 TR(I)[178]TR(I)[170]32768
  23. 75 [130]
  24. 85 [153]"LOADUSE THE 'M','J','L' AND 'I' KEYS TO MOVE
  25. 86 PRINT"OH ";N$",PREPARE TO DIE!
  26. 87 [129]I[178]1[164]4000:[130]I
  27. 90 PO[178]32787
  28. 100 [153]"LOADSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  29. 110 [153]"ONSPC(                                      SPC("
  30. 113 [151]PO,170
  31. 120 [153]"ONSPC(                                      SPC("
  32. 130 [153]"ONSPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC("
  33. 140 [153]"ONSPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(  SPC("
  34. 150 [153]"ONSPC(          SPC(SPC(SPC(SPC(          SPC(SPC(SPC(SPC(          SPC("
  35. 160 [153]"ONSPC(          SPC(SPC(SPC(SPC(          SPC(SPC(SPC(SPC(          SPC("
  36. 170 [153]"ONSPC(    SPC(SPC(    SPC(SPC(SPC(SPC(    SPC(SPC(    SPC(SPC(SPC(SPC(    SPC(SPC(    SPC("
  37. 180 [153]"ONSPC(    SPC(SPC(    SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(    SPC(SPC(    SPC("
  38. 190 [153]"ONSPC(    SPC(SPC(    SPC(SPC(SPC(SPC(          SPC(SPC(SPC(SPC(    SPC(SPC(    SPC("
  39. 200 [153]"ONSPC(    SPC(SPC(    SPC(SPC(SPC(SPC(          SPC(SPC(SPC(SPC(    SPC(SPC(    SPC("
  40. 210 [153]"ONSPC(    SPC(SPC(    SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(    SPC(SPC(    SPC("
  41. 220 [153]"ONSPC(    SPC(SPC(                          SPC(SPC(    SPC("
  42. 230 [153]"ONSPC(              SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(              SPC("
  43. 240 [153]"ONSPC(                  SPC(SPC(                  SPC("
  44. 250 [153]"ONSPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  45. 260 [153]"ONSPC(                SPC(SPC(SPC(SPC(SPC(SPC(                SPC("
  46. 270 [153]"ONSPC(  SPC( SPC(SPC(SPC(SPC(SPC(SPC(     SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(     SPC(SPC(SPC(SPC(SPC(SPC( SPC(  SPC("
  47. 280 [153]"ONSPC(  SPC(           SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(           SPC(  SPC("
  48. 290 [153]"ONSPC(  SPC(   SPC(SPC(                      SPC(SPC(   SPC(  SPC("
  49. 300 [153]"ONSPC(      SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(      SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(      SPC("
  50. 310 [153]"ONSPC(              SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(              SPC("
  51. 320 [153]"ONSPC(                                      SPC("
  52. 329 [153]"ONSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  53. 331 DG[178][187](1)
  54. 333 [151]33726,102:[151]33727,102
  55. 340 [129]I[178]1[164]59:[151]TR(I),96
  56. 345 [130]
  57. 347 [129]I[178]1[164]50
  58. 349 [151]PO,86
  59. 350 [151]PO,42
  60. 354 [130]
  61. 360 [129]I[178]1[164]10:[161]A$:[139]A$[178]""[167]361
  62. 361 [130]
  63. 362 [161]A$:[139]A$[178]""[167]362
  64. 363 QT[178]0
  65. 365 MO[178]0
  66. 370 [139]A$[178]"M"[167]MO[178]40
  67. 380 [139]A$[178]"J"[167]MO[178][171]1
  68. 390 [139]A$[178]"L"[167]MO[178]1
  69. 395 [139]A$[178]"I"[167]MO[178][171]40
  70. 400 [139]MO[178]0[167]360
  71. 405 [139][194](PO[170]MO)[178]96[167]QT[178]1:[137]414
  72. 410 [139][194](PO[170]MO)[178]32[167]414
  73. 412 [137]360
  74. 414 [151]PO,32
  75. 415 PO[178]PO[170]MO
  76. 418 [151]PO,42
  77. 419 [139]QT[178]1[167]1000
  78. 420 [139] PO[178]32768[170]940 [176] PO[178]32768[170]941 [167] 2000
  79. 430 [139]PO[178]TR(I)[167]1000
  80. 440 [137]360
  81. 1000 [129]I[178]1[164]100
  82. 1010 [151]PO,86
  83. 1020 [151]PO,170
  84. 1025 [139]I[178]80[167][153]"LOAD
  85. 1030 NEXT
  86. 1040 POKE53281,1:PRINT"[147]":POKE53281,0
  87. 1055 TP=0:TM=0
  88. 1060 T=INT(RND(1)*5)+1
  89. 1070 ON T GOSUB 3000,4000,5000,6000,7000,8000,9000,10000,11000
  90. 1080 PRINT"[147]SO YOU SURVIVED THIS TIME.
  91. 1090 [129]I[178]1[164]4000
  92. 1100 [153]"BAH! IT MEANS NOTHING!
  93. 1101 PO=PO+MO
  94. 1105 FORI=1TO3000:NEXT
  95. 1110 FORI=1TO100
  96. 1120 POKEPO,86
  97. 1140 NEXT
  98. 1150 GOTO100
  99. 2000 REM *** THE END ***
  100. 2010 PRINT"[147]
  101. 2020 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  102. 2040 [153]"USE THE 'J' AND 'L' KEYS TO MOVE
  103. 2045 POKEPO,42
  104. 2050 FORI=1TO2000:NEXT
  105. 2055 PRINT"
  106. 2060 A[178]18
  107. 2070 [129]I[178]1[164]23
  108. 2072 [139]A[179]2[167]A[178]3
  109. 2075 [139]A[177]34[167]A[178]33
  110. 2080 [129]J[178]1[164]A
  111. 2090 [153]"SPC(";
  112. 2100 [130]
  113. 2110 [153]"    ";
  114. 2120 [129]J[178]1[164]39[171](A[170]4)
  115. 2130 [153]"SPC(";
  116. 2140 [130]
  117. 2141 [153]
  118. 2150 A[178]A[170][181]([187](1)[172]3)[171]1
  119. 2160 [130]
  120. 2165 PO[178]PO[171]920
  121. 2170 [129]I[178]1[164]5000
  122. 2180 P[178][194](197)
  123. 2185 MO[178]0
  124. 2190 [139]P[178]34[167]MO[178][171]1
  125. 2200 [139]P[178]42[167]MO[178]1
  126. 2205 [139]P[178]64[167]MO[178]0
  127. 2207 JJ[178][194](PO[170]MO[170]40)
  128. 2210 [139][194](PO[170]MO[170]40)[178]102[167]2400
  129. 2215 [139][194](PO[170]MO[170]40)[178]127[167]2700
  130. 2220 [151]PO,32
  131. 2230 PO[178]PO[170]MO
  132. 2240 [151]PO,42
  133. 2250 [129]J[178]1[164]A
  134. 2260 [153]"SPC(";
  135. 2270 [130]
  136. 2275 [139]I[178]4950[167][153]"SINSINSINSIN";:[137]2290
  137. 2280 [153]"    ";
  138. 2290 [129]J[178]1[164]39[171](A[170]4)
  139. 2300 [153]"SPC(";
  140. 2310 [130]
  141. 2320 [153]
  142. 2330 A[178]A[170][181]([187](1)[172]3)[171]1
  143. 2335 [139]A[179]2[167]A[178]3
  144. 2337 [139]A[177]34[167]A[178]33
  145. 2340 [130]
  146. 2350 [128]
  147. 2400 [153]"LOAD
  148. 2500 PRINT"[147]HA HA HA-YOU THOUGHT YOU HAD ESCAPED"
  149. 2505 FORJJ=1TO10
  150. 2510 FORII=32768TO32807
  151. 2520 POKEII,PEEK(II)+128
  152. 2530 NEXTII
  153. 2540 FORII=32807TO32768STEP-1
  154. 2550 POKEII,PEEK(II)-128
  155. 2560 NEXTII
  156. 2570 NEXTJJ
  157. 2580 GOTO2999
  158. 2700 PRINT"[147]I ";
  159. 2710 FORI=1TO1000:NEXT
  160. 2720 PRINT"HAVE ";
  161. 2730 FORI=1TO1000:NEXT
  162. 2740 PRINT"FAILED.
  163. 2750 [129]I[178]1[164]2000:[130]
  164. 2760 [153]"YOU ARE ONE OF THE FEW TO SURVIVE.
  165. 2770 FORI=1TO2500:NEXT
  166. 2775 TI$="000000"
  167. 2780 ZD=1:PRINT"[147]":GOTO20
  168. 2999 RUN
  169. 3000 REM *** MINEFIELD ***
  170. 3010 PRINT"[147]YOU HAVE JUST ENTERED A MINEFIELD.
  171. 3020 [153]"STEPPING ON A MINE MEANS INSTANT
  172. 3030 PRINT"DEATH.USE 'M','J','L' AND 'I' TO
  173. 3040 [153]"MOVE TO THE 'F'.
  174. 3045 FORI=1TO5000:NEXT
  175. 3050 PRINT"STEP CAREFULLY!
  176. 3060 [129]I[178]1[164]3000:[130]
  177. 3065 [153]"LOAD
  178. 3070 FORI=1TO25
  179. 3080 M=INT(RND(1)*1000)+32768
  180. 3090 POKEM,96
  181. 3100 NEXT
  182. 3110 FORI=32768TO32807
  183. 3120 POKEI,86
  184. 3130 POKEI+960,86
  185. 3140 NEXT
  186. 3150 FORI=32807TO33727STEP40
  187. 3160 POKEI,86
  188. 3170 POKEI+1,86
  189. 3180 NEXT
  190. 3190 POKE33598,6
  191. 3200 TP=32978
  192. 3210 POKETP,42
  193. 3220 GETA$:IFA$=""THEN3220
  194. 3225 TM=0
  195. 3230 IFA$="M"THENTM=40
  196. 3240 IFA$="J"THENTM=-1
  197. 3250 IFA$="L"THENTM=1
  198. 3260 IFA$="I"THENTM=-40
  199. 3270 IFTM=0THEN3220
  200. 3280 O=PEEK(TP+TM)
  201. 3290 IFO=86THEN3220
  202. 3300 IFO=6THENRETURN
  203. 3310 IFO=96THEN3340
  204. 3320 POKETP,32
  205. 3322 TP=TP+TM
  206. 3325 POKETP,32
  207. 3330 GOTO3210
  208. 3340 FORI=1TO100
  209. 3360 POKETP,42
  210. 3370 POKETP,160
  211. 3380 POKETP,90
  212. 3390 NEXT
  213. 3400 PRINT"[147]HA HA HA ";
  214. 3410 FORI=1TO2000:NEXTI
  215. 3420 PRINT"I GOT ANOTHER ONE!
  216. 3430 [129]I[178]1[164]2000:[130]I
  217. 3440 [153]"";N$;" WILL BE IN LITTLE BITS
  218. 3450 FORI=1TO4000:NEXTI
  219. 3460 PRINT:PRINT"FOR EVER!
  220. 3470 [129]I[178]1[164]4000:[130]I
  221. 3480 [138]
  222. 3999 [143] *** LASAR BEAMS ***
  223. 4000 [153]"LOADYOU SEE THOSE POLES OVER THERE?
  224. 4010 FORI=1TO1000:NEXT
  225. 4020 PRINT"YOU KNOW WHAT THEY ARE?
  226. 4030 [129]I[178]1[164]1000:[130]
  227. 4040 [153]"LASERS
  228. 4050 FORI=1TO1000:NEXT
  229. 4060 PRINT"USING THE 'J' AND 'L' KEYS,YOU HAVE
  230. 4070 [153]"5 SECONDS TO POSITION YOURSELF.
  231. 4075 FORI=1TO4000:NEXT
  232. 4077 PRINT"[147]
  233. 4080 TP[178]33747
  234. 4090 [151]32814,87
  235. 4100 [151]32819,87
  236. 4110 [151]32824,87
  237. 4120 [151]32827,95
  238. 4130 [151]32828,105
  239. 4140 [151]32831,87
  240. 4150 [151]32836,87
  241. 4160 [151]32841,87
  242. 4170 TI$[178]"000000"
  243. 4175 TM[178]0
  244. 4180 [161]A$:[139]A$[178]""[167]4200
  245. 4200 [139]A$[178]"J"[167]TM[178][171]1
  246. 4210 [139]A$[178]"L"[167]TM[178]1
  247. 4220 [139]TP[170]TM[177]33767[176]TP[170]TM[179]33728[167]TM[178]0
  248. 4240 [151]TP,32
  249. 4250 TP[178]TP[170]TM
  250. 4260 [151]TP,42
  251. 4270 [139]TI$[179]"000006"[167]4180
  252. 4280 [129]I[178]0[164]10[169]5
  253. 4290 [129]J[178]I[170]32855[164]33767[169]41
  254. 4300 [151]J,77
  255. 4310 [130]
  256. 4320 [130]
  257. 4322 [129]I[178]0[164]10[169]5
  258. 4324 [129]J[178]I[170]32870[164]33756[169]39
  259. 4326 [139][194](J)[178]28[167][151]J,86:[137]4328
  260. 4327 [151]J,78
  261. 4328 [130]J
  262. 4329 [130]I
  263. 4330 [129]I[178]32867[164]33747[169]40
  264. 4340 [151]I,103
  265. 4345 [151]I[170]1,101
  266. 4350 [130]
  267. 4355 [129]I[178]1[164]1500:[130]
  268. 4360 [139][194](TP)[178]42[167][142]
  269. 4370 [153]"LOADDO YOU KNOW HOW PAINFULL A
  270. 4380 PRINT"LASAR BEAM DEATH IS ?"
  271. 4390 FORI=1TO2000:NEXT
  272. 4400 PRINT"OH YES ! YOU'VE JUST HAD ONE !
  273. 4410 [129]I[178]1[164]1500:[130]
  274. 4420 [138]
  275. 5000 [143] *** GUARD DOGS ***
  276. 5001 PP[178]1
  277. 5010 [153]"LOADA PACK OF FIVE GUARD DOGS ((null)) HAS
  278. 5020 PRINT"BEEN SET ON YOU.YOU MUST REACH
  279. 5030 [153]"THE 'F', BEFORE THEY REACH YOU!
  280. 5040 FORI=1TO3000:NEXTI
  281. 5050 PRINT"SOME CHANCE!
  282. 5060 [129]I[178]1[164]1500:[130]
  283. 5070 [153]"USE THE 'M','J','L' AND 'I' KEYS TO MOVE
  284. 5080 FORI=1TO2000:NEXT
  285. 5090 PRINT"[147]
  286. 5100 [129]I[178]32768[164]32807
  287. 5110 [151]I,102
  288. 5120 [151]I[170]960,102
  289. 5130 [130]
  290. 5140 [129]I[178]32807[164]33727[169]40
  291. 5150 [151]I,102
  292. 5160 [151]I[170]1,102
  293. 5170 [130]
  294. 5173 [151]33598,6
  295. 5175 TP[178]32978
  296. 5176 TM[178]0
  297. 5180 [129]I[178]1[164]5
  298. 5190 GD(I,1)[178][181]([187](1)[172]40)[170]1
  299. 5195 GD(I,2)[178][181]([187](1)[172]24)[170]1
  300. 5200 [139][194](GD(I,1)[170](GD(I,2)[172]40)[170]32768)[179][177]32[167]5190
  301. 5210 [151]GD(I,1)[170](GD(I,2)[172]40)[170]32768,94
  302. 5220 [130]
  303. 5225 [129]I[178]1[164]500:[130]
  304. 5230 [161]A$:[139]A$[178]""[167]5240
  305. 5240 [139]A$[178]"M"[167]TM[178]40
  306. 5250 [139]A$[178]"J"[167]TM[178][171]1
  307. 5260 [139]A$[178]"L"[167]TM[178]1
  308. 5270 [139]A$[178]"I"[167]TM[178][171]40
  309. 5280 [139][194](TP[170]TM)[178]32[167]5320
  310. 5290 [139][194](TP[170]TM)[178]6[167][142]
  311. 5300 [139][194](TP[170]TM)[178]102[167]TM[178]0
  312. 5310 [139][194](TP[170]TM)[178]94[167]3340
  313. 5320 [151]TP,32
  314. 5330 TP[178]TP[170]TM
  315. 5340 [151]TP,42
  316. 5345 [139]DD[179]0[167]DD[178]DD[172][171]1:[137]55230
  317. 5346 DD[178]DD[172][171]1
  318. 5350 IP[178]TP[171]32768
  319. 5360 DY[178][181](IP[173]40)
  320. 5370 DX[178]IP[171](DY[172]40)
  321. 5372 [139]PP[179]0[167]PP[178][171]PP:[137]5225
  322. 5375 PP[178][171]PP
  323. 5380 [129]I[178]1[164]5
  324. 5390 [139]D(X)[177]GD(I,1)[167]MX[178]1
  325. 5400 [139]DX[179]GD(I,1)[167]MX[178][171]1
  326. 5405 [139]DX[178]GD(I,1)[167]MX[178]0
  327. 5410 [139]DY[177]GD(I,2)[167]MY[178]1
  328. 5420 [139]DY[179]GD(I,2)[167]MY[178][171]1
  329. 5425 [139]DY[178]GD(I,2)[167]MY[178]0
  330. 5430 AD[178][194](GD(I,1)[170]MX[170](GD(I,2)[170]MY)[172]40[170]32768)
  331. 5440 [139]AD[178]32[167]5470
  332. 5450 [139]AD[178]42[167]3340
  333. 5460 [139]AD[178]6[167]5510
  334. 5465 [139]AD[178]102[167]5510
  335. 5467 [139]AD[178]94[167]5510
  336. 5470 [151]GD(I,1)[170]GD(I,2)[172]40[170]32768,32
  337. 5480 GD(I,1)[178]GD(I,1)[170]MX
  338. 5490 GD(I,2)[178]GD(I,2)[170]MY
  339. 5500 [151]GD(I,1)[170]GD(I,2)[172]40[170]32768,94
  340. 5510 [130]
  341. 5520 [137]5230
  342. 5999 [143] *** RHINOS ***
  343. 6000 [153]"LOADTHERE IS A HERD OF RHINOS (@)
  344. 6001 ER=0
  345. 6010 PRINT"CHARGING YOU.YOU HAVE A CHOICE:
  346. 6020 [153]"KEEP OUT OF THE WAY,OR BE
  347. 6030 PRINT"TRAMPLED.
  348. 6035 [129]I[178]1[164]2000:[130]
  349. 6040 [153]"USE THE 'J' AND 'L' KEYS TO MOVE
  350. 6050 FORI=1TO2000:NEXT
  351. 6060 PRINT"[147]
  352. 6065 X[178]0:Y[178][171]100
  353. 6070 [129]I[178]1[164]30:[153]:[130]
  354. 6080 TP[178]32788
  355. 6090 [151]TP,42
  356. 6100 A[178][194](197)
  357. 6110 [139]A[178]64[167]TM[178]0
  358. 6120 [139]A[178]34[167]TM[178][171]1
  359. 6130 [139]A[178]42[167]TM[178]1
  360. 6135 [139][194](TP[170]TM)[178]0[167]6250
  361. 6140 [139]TP[170]TM[179]32769[176]TP[170]TM[177]32806[167]TM[178]0
  362. 6150 [151]TP,32
  363. 6160 TP[178]TP[170]TM
  364. 6170 [151]TP,42
  365. 6175 [139][194](TP[170]40)[178]0[167]6250
  366. 6180 [139]ER[178]1[167][153]:[137]6210
  367. 6181 [139]X[178]0[167]6195
  368. 6190 [153][166][181]([187](1)[172]19));"@
  369. 6191 PRINT"[145]";SPC(INT(RND(1)*39));"@
  370. 6193 X[178]0:[137]6210
  371. 6195 [153][166][181]([187](1)[172]12));"@
  372. 6196 PRINT"[145]";SPC(12);SPC(INT(RND(1)*12));"@
  373. 6197 [153]"ON";[166]24);[166][181]([187](1)[172]36));"@
  374. 6200 X=1
  375. 6210 Y=Y+1
  376. 6230 IFY=100THENER=1
  377. 6235 IFY=130THENRETURN
  378. 6240 GOTO6100
  379. 6250 FORI=1TO100
  380. 6260 POKETP,0
  381. 6270 POKETP,42
  382. 6272 POKETP,209
  383. 6280 NEXT
  384. 6290 PRINT"[147]THERES ONE ADVANTAGE TO BEING KILLED
  385. 6300 [153]"BY A RHINO.
  386. 6310 FORI=1TO1500:NEXT
  387. 6320 PRINT"YOU ONLY NEED A COFFIN 2 INCHES";
  388. 6330 PRINT" HIGH!
  389. 6340 [129]I[178]1[164]2000:[130]
  390. 6350 [138]
  391. 7000 [143] *** GORILLA
  392. 7010 [153]"LOADYOU HAVE JUST ENCOUNTERED A
  393. 7020 PRINT"MAD[146] GORILLA.AFTER GETTING ON YOUR
  394. 7025 [153]"KNEES AND PLEADING WITH HIM,HE AGREES
  395. 7030 PRINT"TO LET YOU GO,IF YOU CAN TELL HIM HIS
  396. 7040 [153]"NAME.IT WILL FLASH ON THE SCREEN,
  397. 7050 PRINT"VERY QUICKLY.
  398. 7060 [129]I[178]1[164]6000:[130]
  399. 7070 [153]"LOAD
  400. 7080 FORI=1TO500:NEXT
  401. 7090 I=INT(RND(1)*5)+1
  402. 7100 IFI=1THENMG$="RAYMOND"
  403. 7110 IFI=2THENMG$="RICHARD"
  404. 7120 IFI=3THENMG$="MATTHEW"
  405. 7130 IFI=4THENMG$="JAMES"
  406. 7140 IFI=5THENMG$="JACOB"
  407. 7150 PRINT"";MG$
  408. 7160 TI$="000000"
  409. 7170 IFTI<1THEN7170
  410. 7180 PRINT"[147]
  411. 7190 [133]"WHAT IS HIS NAME";IN$
  412. 7200 [153]"LOADGRR-RRGH-ARGG-GGHH-";
  413. 7210 [129]I[178]1[164]2000:[130]
  414. 7220 [139]IN$[179][177]MG$[167]7260
  415. 7230 [153]"RIGHT-GRRR..."
  416. 7240 [129]I[178]1[164]2000:[130]
  417. 7250 [142]
  418. 7260 [153]:[153]"GHHH-WRONG-HA-GRHH-HA-GRHH-HA!
  419. 7265 FORI=1TO2000:NEXT
  420. 7270 PRINT"MASH-MAUL-CHOMP
  421. 7280 [129]I[178]1[164]2000:[130]
  422. 7290 [138]
  423. 55230 [129]LK[178]1[164]200
  424. 55240 [130]
  425. 55250 [137]5230
  426. 60000 [131]63,84,90,98,122,135,136,143,150,169,184,201,233,256,259,287,302,310
  427. 60010 [131]335,363,437,448,459,460,482,490,495,497,499,501,503,512,545,555,607
  428. 60020 [131]608,615,616,623,624,631,632,684,694,715,746,762,769,798,817,833,836
  429. 60030 [131]844,852,862,869,888,896,904,939,940
  430.